﻿Imports System.Drawing.Printing

Public Class ViewBL

    Private numC As String

    Public Sub New(ByVal Chargement As String)

        ' Cet appel est requis par le concepteur.
        InitializeComponent()

        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        numC = Chargement

    End Sub

    Private Sub ViewBL_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.ReportViewer1.Dispose()
    End Sub

    Private Sub ViewBL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'LaisserPasserDS.BL'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.BLTableAdapter.Fill(Me.LaisserPasserDS.BL, numC)
        'TODO: cette ligne de code charge les données dans la table 'LaisserPasserDS.BLdétails'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.BLdétailsTableAdapter.Fill(Me.LaisserPasserDS.BLdétails, numC)
        'TODO: cette ligne de code charge les données dans la table 'LaisserPasserDS.BL'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Dim print As New PageSettings
        print.Margins.Bottom = 20
        print.Margins.Top = 20
        print.Margins.Left = 35
        print.Margins.Right = 35
        print.PrinterSettings.Copies = 1
        Dim p As New Microsoft.Reporting.WinForms.ReportParameter("Duplicata", "True")
        Me.ReportViewer1.LocalReport.SetParameters(p)
        Me.ReportViewer1.SetPageSettings(print)
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class